home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / Ant Movie Catalog 3.5.0.2 / amc_install.exe / {app} / Scripts / Cinefil (FR).ifs < prev    next >
Text File  |  2005-02-07  |  5KB  |  121 lines
  1. (***************************************************
  2.  
  3. Ant Movie Catalog importation script
  4. www.antp.be/software/moviecatalog/
  5.  
  6. [Infos]
  7. Authors=scorpion7552 (script original: Danone-Kid)
  8. Title=CinΘfil
  9. Description=infos de CinΘfil - mode normal/batch: voir l'onglet Commentaires
  10. Site=http://www.cinefil.com
  11. Language=FR
  12. Version=2.0
  13. Requires=3.5.0
  14. Comments=mode batch: 2 modes possibles: d'aprΦs l'url mΘmorisΘe (CinΘfil) ou d'aprΦs le nom du film + rΘalisateur (rΘsultats non garantis!)|N'oubliez pas de sauvegarder votre base actuelle avant de lancer le mode batch|Conseils: sΘlectionnez un nombre raisonnable de films et triez la liste des films par numΘros|α la fin de chaque mise α jour, un fichier log est crΘΘ (informations et erreurs - attention ce fichier est recrΘΘ α chaque lancement de ce script) 
  15. License=This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
  16. GetInfo=1
  17.  
  18. [Options]
  19. FormatTitre=0|0|0=laisser les titres des films tels quels|1=tout en minuscules|2=tout en majuscules|3=1Φre lettre en majuscule le reste en minuscules|4=toutes les 1Φres lettres en majuscules
  20. Mode=0|0|0=mode normal|1=mode batch (url)|2=mode batch (nom + rΘalisateur)
  21.  
  22. ***************************************************)
  23.  
  24. // nΘcessite les modules suivants
  25. // StringUtils1.pas, StringUtils7552.pas et MrCinemaCinefilCommon.pas
  26.  
  27. program cinefil;
  28. uses
  29.     MrCinemaCinefilCommon;
  30.  
  31. //------------------------------------------------------------------------------
  32. // traitement mode batch
  33. //------------------------------------------------------------------------------
  34. procedure CinefilBatch;
  35. begin
  36.     SetField(fieldChecked, '');                         // init film en traitement
  37.     case BatchMode of
  38.     1:
  39.         begin
  40. // recherche par url
  41.             MovieName := GetField(fieldUrl);       // pas d'url ou autre site, ignorer
  42.             if (MovieName <> '') and (Pos(CinefilUrl, MovieName) > 0) then
  43.                 AnalyzePageFilmCinefil(MovieName)
  44.             else
  45.                 LogMessage('CinΘfil: non traitΘe url="'+Moviename+'"');
  46.         end;
  47.     2:
  48.         begin
  49. // recherche par nom + rΘalisateur
  50.             MovieName := GetMovieName;
  51.             if MovieName <> '' then    
  52.             begin
  53.                 initBatchLook;                           // init paramΦtres de recherche          
  54.                 AnalyzePageCinefil;    
  55.             end else
  56.                 LogMessage('CinΘfil: non traitΘe (pas de nom de film)');    
  57.         end;    
  58.     end;      {case}                             
  59.     if filmok then
  60.         SetField(fieldChecked, 'x');                                      // film ok
  61. end;    
  62.     
  63. //------------------------------------------------------------------------------
  64. // traitement mode normal
  65. //------------------------------------------------------------------------------
  66. procedure CinefilNorm;
  67. var
  68.     mname: string;     // Input ne peut pas accΘder aux variables dΘclarΘes dans les units
  69.  
  70. begin
  71.     mname := GetMovieName;
  72.     msgano := 'Entrez le titre du film';
  73.     repeat
  74.     if not Input('cinefil.com Import', msgano, mname) or (mname = '') then exit;
  75.     MovieName := mname;
  76.     AnalyzePageCinefil;
  77.     until filmok;
  78. end;
  79.     
  80. //------------------------------------------------------------------------------
  81. //  c'est ici que τa commence 
  82. //------------------------------------------------------------------------------                                               
  83. begin
  84.     if abort = 'o' then exit;                           // mode batch non confirmΘ
  85.     if firstcall <> 'done' then
  86.     begin     
  87. // 1er appel: init paramΦtres
  88.         firstcall := 'done';
  89.         if not CheckVersion(3,5,0) then
  90.         begin
  91.             ShowMessage('Ce script requiert une version plus rΘcente de Ant Movie Catalog (au moins la version 3.5.0)');
  92.             abort := 'o';
  93.             exit;
  94.         end;        
  95.         calledBy := cinefil_id;                              // identifiant appelant
  96.         batchlogfic := 'c:\amc_Cinefil_batchlog.txt';        // log pour mode batch
  97.         debug := False;                       // mode debug on/off 
  98.         debugrep := 'd:\temp\';               // rΘpertoire de stockage des fichiers
  99. // rΘcupΦre les variables user (utilisΘes plus d'une fois)
  100.         BatchMode := GetOption('Mode');
  101.         FormatTitre := GetOption('FormatTitre');
  102. //
  103.         if BatchMode > 0 then                      // mode batch: confirmer le choix
  104.         begin
  105.             initBatchLog;                            // init log
  106.             if not ShowWarning(confbatch.Text) then
  107.             begin
  108.                 AddToLog('mode batch annulΘ'); 
  109.                 abort := 'o';
  110.                 exit;
  111.             end;
  112.         end;
  113.     end;
  114. // c'est parti
  115.     filmok := False;
  116.     if BatchMode = 0 then
  117.         CinefilNorm
  118.     else
  119.         CinefilBatch;        
  120. end.
  121.